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?12!S 


7g77 






?126 


:^0g 


DAW, 




0127 


7700 






0130 


2202 


CAR£G, 


0 





Vi^2 




73 


17142 


0131 




MCBfC, 


0 




P 1 3 2 


^P?7 




0 




?173 






0 




01-^4 


7«^? 




0 




01-^5 


{" 0 0 P 


A D S £ G (; 


0 




PI 36 


?ij?00 




0 










0 










7 




Pi4i 


0000 


ST*?RY, 


0 




0142 


7033 


DATTRY* 


0 








CMKS4V* 


0 




0144 






0 




0145 


0000 










7607 




7 607 




-0147 


32 4 3 


KAXTRK* 


324 0 






360 2 


BGNBUF ? 


STRBUF 




0i5x 


2000 








0152 


5563 


/ 

DATPOTj 


DATl 




015S 


3522 


T I K? 07 » 


D0THI 






352? 


S T * P D T t 


03NRD * 


3 




3fi53 


D S K P D T r 


DSKS4 




0136 






DSK08 






0030 


cherts* 






0160 


00 0? 










00 0 7 




0 
















0 H 7) 0 


SPT«K2# 






01 i 4 












7 7 0 2 


S^fiLK , 


0 




0166 


0000 




0 




016? 


7707 




0 




017a 






0 




S?17i 


7 7:0c 








0172 


; s ?7^ 




0 




0173 


777? 


? I R T I M » 


§ 




0174 


3300 


C:. P3aK, 


7 








/ 






0 2 7 9 


S203 


/ 


JMP 




0271 


5777-' 






CHANG 


02C2 


5776* 




J M ;5 


STRSTP 


32^3 


6224 










7443 




5 2 * 






7402 


K WL? * 






? 2 v & 


1105 




' i-. : 


Kcor 


0 2.'? 


.5 717 




DC A 






7402 










1365 




TAD 


ACDCA 


0212 


3001 




DC ^ 




^21S 


124 6 




7A0 




021* 


3777 




OCA 


2 


02X3 


1364 




TAD 





/TO RtCULAR Ttrsr 
/CHA^CL IOT ROUTINE 
/RESTART 

/tillo 0??n 

/«1LL ONLY HUn Ik FIELD 



/*AKC DFaJF 

/srryp ac dc a 



8216 
?21? 
P222 
?221 



0223 
0224 
??25 
0226 
J»227 
£238 
0231 
21232 
0233 
*234 
0235 

£236 

^23 7 

0242 
B243 

0246 
8253 

mi 

??53 
0254 

^256 
£?57 
P260 
?26i 
!3?&2 

P264 
??65 
£•2*6 

?2?0 
P2U 
P?72 
f'273 
P274 
???5 
???6 
P277 

031*1 



vi.4 2 

3003 
1363 
3P34 
1366 
3003 

ii0i 

3112 

3774' 
734 0 
U33 

seia 

3410 
21.12 
3232 
3160 

4453 

mi 

4«5i 
3344 

2g?0 
524i 

7006 
7040 
3145 
445i 
3323 
3112 

1110 

3113 

1112 
1156 
3114 
734 0 
4451 
3332 
i?65 
1112 
444? 
1271 
4443 
4437 
4431 

53*1 
2255 

3514 
2112 



OCA 
TAD 
DC 4 
TAD 
DC A 

/ 

STRTEX, T * 3 

DC A 
TAD 
DC A 



NEXT* 



CL* til DMA 



17 J«2 PACE 1*4 

3 

«5485 
4 

BRKRET 
5 

K77Z0 

rsASMi 

RANJMS 
SWDA? 



T AO 
DC A 
DC A I 
IS? 
JMP 
DC & 

cftur 

PRNTER 

meSi 

PRMTER 

HESS 

ONEIN 

?0?0 

SAL 
RTl 
CM A 
DC A 
> PRMTER 
HES2 
DC A 
TAD 
CCA 
OCA 
TAD 
TAD 
DC A 

CL A CLL 

PINTER 

MESS 

TAD 

TAD 

TYP£ 

T AO 

TVPt 

jmp 
j«p 

;$i 

CLA CLL 
DCA 1 



TIMPOT 
AUTO10 

AUTQ10 

TRASHi 
GATPlC 



haxplO 



TP AS HI 

TRASH2 
amoumT 

TRASHI 
RUnPOT 
TRASH3 
C MA 



K0262 
TRASHl 



K0277 



ALL A ON 
AMOUNT 

Cm A 

T ft A S H 3 
T R A S W 1 



/SETUP SAVC LINK 
/SETUP JMP RETURN 
/RETURN POINTER 

/CLEAR COUNTER 
/SET INSTRUCTION SWITCH 



/LOCATION POINTER 
/CLEAR 



/hore ?o clear 

/PRINT DATA RELIABILITY" 

/PRINT "AMOUNT Of MEMORY" 

/RDClIVC one octal 

/LIMJTS 
/INPUT ERROR 



/CDHPtiT -: ; r 

/MAXIMA ^ 1 1 L D POINTER 
/PRINT «tXERCISE" 



/A ~EW POSTERS 

/Save run pointer 

/PRINT " DISK" 



/ - D D IN DISK DUMBER 
/TYPE DISK NUMBER 

/TTPr t 

/RECEIVE KEY INPUT 
/wAS IT YES OR NO 
ZITHER 
/rfAS A N O 

/AMOUNT 0? DISK POUND 

/AC TO 777? fOR EXISTING DISK 

/SETUP RUN POINTER 



RAL1« V14 2 



P324 



25. 13 



23-5 1035 

?3^7 5223 

?SiB 4*31 

?311 3366 
4437 

0313 4431 

F315 

0316 5773' 



031? 
?320 
??21 
?322 
5*323 
?S24 
?Z25 
?32ft 
?327 
C 3 30 

*332 
2333 
?334 
0335 
P336 
£337 
2340 
?34i 

0342 
E EMS 
03«4 
0343 

034? 
035g 
C3M 

£333 

?356 
PS57 
? 3 6 2! 

?362 

?363 
f 364 
0365 



4451 

3^0? 
4 4 37 
4431 
5317 

3i572 

5:$i7 
7124 

7(506 
1161 

m 

5317 
7343 

4451 

4437 
443i 



5771' 
4*23 
4,*2* 

93 4 2 
Sift? 

31 6 3 
7340 
^ V ? 

V:n< 

3171 
3J70 



JMJ» 

JWP 

PSNTCR 

HES6 

RECEIV 

YESNO 

JH- 
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TRASn2 
NEXT 



AMOUNT 
ST^TEX 



ASKSUR 



MANUAL* PRNTEft 



HANUAL 
ASKNX1 



YE3NO 
JMP 
UHP 
SPACE 
ONE I N 

JH? MANUAL 
^ AL 

RTL 

DCA Spr L D 
TAD SFTuD 
TAD HAXFLD 

S M a Z L k 

manual 

CLA ClL cha 

dca ruorLC 

PRNTER 



3X2 



/ 

K5405, 
LNKOC A j 
ACDCA, 



CLA Cu 
DC* 
-J f ^ 

5435 

DCA 

OCA 



- S « N X 1 
SPT«K1 



TRxr LG 



S V L Ni K 
SAVAC 



/ASK ASOUT ^£XT DISK 

/CET AMOUNT fDUND 

/**ri?E AMY POUND 

/OPERATOR fRffOR NO 0!SK INPUT 

/PRINT "ACCEPT M 0 0 E T K 

/RECEIVE INPUT 

/Yrs Non?? 

/ N EITHER ALL AGAIN 

/manual test 

/ask "arc you sure" 

/print "held?" 

/receive y or n 
/Check eor y n 
/ n'e ! ther ¥ d r n 

/^A3 A N 4 ASK ABOUT NEXT 
/SPACE OUT ONE 
/GET i OCTAL 
/L I HITS 

/INPUT ERROR ASK AGAIN 



/COMPARE TO MAXIMUM 

r I N PUT ERROR 

/SETUP P I ELD PL AG 

/PRINT "TR*CK?« 

/^lCEIVE Y OR N 
/CHECK EDS Y OR N 
/EPROR { ASK AGAIN 
/N'« ASK ASOUT NEXT 

/RCCriVE i \u OCTAL 
/LIMITS 

/ E > l ft f, S , A G A I KJ 

/^»AVr EXTENDI O TiUCK SIT 
/ar Of I Vf fDU^ IN OCTAL 
/ERR-OR, ASK aGA?n 

/Save CY Li4 SuRr*cc t and sector 

/SETUP TRACK FLAG 
/ASK ABOUT KiEXT 



J 



£L 1 ^ 


VI 42 


I 6* JUL • 


7 3 


7 ? 4 ? pier t„i 




03 6 6 




8RKRE T i 


returw 








3547 


/ 




















?372 












P3 73 












£* 3 7 4 


? 6 $ 7 










F3 75 


8 5 5 4 










C 3 76 


2003 










2377 














S400 


P&GE 

/ 








04?g 




ASKNX2, 


PRNTER 




/PRJNT w 8i.CCK LENGTH? 1 * 


C 4 ? i 


34 27 




M£Sli 






i?402 


443? 




Recti y 




/RECEIVE INPUT 


04 r 3 


4431 




YlSNQ 




/ChCCK EOR ¥ 0$ N 


04 2 4 


3 £00 




jmP 


ASKNX2 


/ERROR* ASK A G A J N 


0455 






J H P 


ASKNX3 


/N« ASK ABOUT NEXT 


?4 ?!6 


4423 




space 




/ v t SPACE py? | 


24^7 


4424 








/RECEIVE 1 IN OCTAL 


841? 


0010 








/LIMITS 


?4 ii 


5200 




J MP 


ASKNX2 


/ u ^ R C R « ASK AGAIN 


P4 3, 2 


7642 








/SET malt block? 


?<13 


7340 






CH A 


/YES 


4 1 4 


3165 






SPS^K 


/setup block nuhber 




73 4 2 






CNA 




0 416 


3777^ 




DC A 


hlftlc 




?4l7 


4451 


ASKNX3 3 


PRNTER 




/PRINT " E X ^ A SECTORS? 














?4 21 






or *r J y 




/RECEIVE INPUT 








v r «; u a 




/ C ^ L C K f^^ R ^ 0 $ N 


? 4 ? 3 








A S K N X 3 




f 4 2 4 








A S K N X 4 


fig £ -J f= 17 ^ '„/ t RfcA f 


P4 ?5 


4*23 










^ 4 2 S 












?! 4 ? 7 ■ 


? £ 1 P 




9 ffl 1 0 






? 4 3 3 


5217 






i SK NX 3 


/ E f< R 0 R j ASK A G A J N 


04 31 


7104 




CLL &AL 




^432 






HTu 






M33 


3164 




DC* 


SPStC 


/SAVE IT 


0434 


4424 




ONE 1 N 




/RECEIVE l IN OCTAL 


e*35 


0070 




I?g70 




/LIMITS 


0*36 


521? 




JHP 


ASKNX3 


/IKPUT ERROR* ASK AGAIN 


0 4 3 7 


1164 




TAD 


SPSCC 


/ADD IN L*ST 


04 4g 


3164 




GC 4 


SPSt c 


/Save all 




* * 65 




TAD 


SPBL* 




0442 


7648 




SHA CL* 




/BLOCK LlN&TH 3???| 


3443 


524& 




JMP 


>3 


/NO LIMIT IS 17, 




15,61 






speed 




P4<3 


7640 








/HELD 0?m? 


24&& 


i£62 




TAD 




/LIMIT IS 17, 


f*4«7 


1061 




TAD 


K2007 






7140 




CLL CHA 






0451 


1164 




TAD 


SPSEC 


/COMPARE SECTOR INPUT! 



Palis u«2 



?^S2 
?4S3 
7454 
?4*5 



7630 

73 4 2 
3776' 



16«JUL»73 
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„HP ASKNX3 
CL* CLL CMA 
OCA SECFLG 



/IN LIHTTSm 
/NO, INPu? ERROR 



P461 
?^62 
0463 
?4M 

S466 
0 4 67 
0472 

P471 
0472 
0473 
2-47 4 

0 4 76 
0477 
0500 
^5: ! I 



?9l1 
P314 

Cfc3 



="..'7 



? 6 4 ? 

$271 
4451 
3436 
4437 
4431 

5271 
7340 
3774' 

4451 
3443 
1354 
3773' 
4437 
4^31 
5271 
5320 
1340 
3 7 7 3' 



7342 
1152 
3010 
4453 

5271 
3410 
5112 
5318 
7 34 8 
316 0 

344 6 
44 3 7 
4431 
?524 532Z 
Z525 517'it 



li? 5 5 
3113 



JMP ASKNX5 

PRNTER 
HES12 
RECEJV 
VESNO 

JMP *SKNX4 
JKP ASKNX3 
CL* CLL CHA 



TRACK TLAS 



DC h 
/ 

A S K N X 5 » P ft N T £ R 
MES13 
TAD 
DC A 

SECtlV 
Y E 5 N D 



SEOKLC 



RANJMS 
SWDAT 



ASKNX5 
iSKSUR 
KSKP 



TSaShI 
CLL CMA 

DATPOT 
AJTOlZ 



DC* I 
I S I 



ASKSJR, PRNTER 
w ESl 4 



A S K N X S 
iUTQl® 
T R A S W i 
,*3 

CATfLS 



ASKSUfl 
S?«TEX 



/SEND EXISTING DRIVES TO k RaNDDH 
/AMD SAVE THE TRACK ADDRESS 



ST&SEK, DC A 



A M 0 J \ T 



-:je ?^ce 



/RECEIVE INPUT 
/ Y OR N 

/ERROR* ASK AGAIN 
/N 4 ASK ABOUT NEXT 

/SETUP SEQUENCE TLAG 

/PRINT *'CATA?« 

/SET INSTRUCTION SWITCH 
/RECEIVE INPUT 
/V OR N 

/EPFiCR* ASK A G A | *-i 
/ASK "ARE VOU SURE" 

/SET INSTRUCTION SWITCH 

/SETjp WQRD COUNTER 

/get pot pointer 



/RECEIVE 4 I hi OCTAL 
/INPUT ERROR* ASK AGAIN 
/ S a V C DATA 
/UPDATE COUNTER 
/GET NEXT 

/SETUP Da?a f L *G 
/PRl'vT "ARE VOU SURE" 



/ I '< R U T ERROR 
/All AGAIN 



/SOME POINTERS 



PALIS 

.3 
f ? * 
0535 
?536 
0*3? 
0540 
03*1 

?5*3 
?5«*6 

2552 
?553 



05?i 
?§72 
0573 
037 4 
P575 
P576 
^577 



V142 

i n 2 
uu 

7104 
4436 

334 7 

ms 

7104 
4432 
7610 

2143 
7610 
5771' 
2112 
5332 



2«0i 

3547 
3553 
355i 



16-JUL-73 



RESET, 



17142 PACE 1«S 



/ 

RANjhS, 
/ 



tad 












TAD 


; n A it H i 


CLL rau 








skp ca A 




J Ml* 


f i £ A s 


?AD 


T $ A $ Hi 


Tf i Bit 




SgEK 








JHP 


R£5£f 


IS2 


TRASH2 


SKP CL* 




J**P 


SUN 


152 




JHP 


NXTSCK 



GENDAT 



:htck sun pointer 

WAS A 2t«D DOM* ? ftUN 



Z^TC AL ! SRATt DRIVE 
/DUMPED BUT MORE AVA I LA8LE 

/SEEK ONLY A fUNOOH TRACK 

/ERROR, ?RV TO RECALIBRATE 
/UPDATE POINTER 
/HOPE TO SEND OUT 
/START RANDOM DATA 

/SEND OUT NEXT EXISTING DISK 



06?1 



/runner for r^nqdm da*a 



06^7 

3611 
P612 
0613 
F£14 
?613 
?616 
Ffcl? 
0620 

?6?i 
r a 2 

0603 
0420 



3167 
1167 
7640 
5777' 
1776' 
7650 
5211 

Ills 

7 301 
1143 
7632 
5233 
4433 

7453 

3140 
1140 
1145 



«UN S 



DC A 
TAD 

SO. CL* 



£RFLC 



POLNEX 



TAD 

SNA CL* 

.*3 
SPFLD 
JHF RNPlD 
CL A CLL !AC 
TaD 

SNA cla 



TAD 



kaxflD 



RA^GEn 

i NO 

SNA 
JHP 
OCA 
*AO 
TAD 



RNFLO 
K0g7? 

RNfLD 
INTO 
INTC« 



/CLEAR ER'-iDS POINTED 

/MASK SWITCH 6 
/LATCH 

/SE£K ONL V SET???? 

/VES, S££K CNLY 

/GE? FIELD FLAG 

/WAS IT SET? 

/MO, USE RANDOM ft ELD 

/ V ES 4 G£T OPERATOR ftZLD 

/GO 

/GET maximum FIELD POINTER 

/A*y ^ItLOS THERE 

/NO EXTENDED FIELDS TO USE 

/VES* GET a «ANOOH nr L D 

/"ASK 

/GOULD 90 0 

/WAS DON'T H^VC TO Ch£C< L I H I ? S 
/SAVE FJtLD FOUND 

/ADD IN MAXIMUM FIELD POINTER 



V142 



17(42 PACE 1.9 



0627 
?631 

3634 

0637 



0645 

? 6 :• ? 

P A * 2 
f M-3 

0^66 

*'0 
S6U 

?673 

i?6?5 
E-676 
0677 
!?723 

e?fi 

?7.*2 

?7?4 
37S5 

P7lfl 
?7li 
071? 
C713 
0714 
2713 



7710 
52J4 
1145 



3140 

7 ft 5 2 
4433 
1163 

114g 
Sl4g 

5«S 

7640 
1016 
II 

5113 
U13 
7041 
3115 
1140 
8340 

1062 

1061 

3112 

1774' 

7 A b 

4433 

^112 
S151 
1151 
7040 
3112 
1773' 
7*5.? 
4 4 33 
13.63 

3114 
UlS 

5301 
3131 
44 33 
51 3 E 

ii40 
ai64 

S3S0 
a 153 
7i«e 
113?- 



??NFLD, 



S9i. CL* 

UMP RNFLO *i 

TAD MAXFLD 

DC^ INTCH 
T AO MlFfLG 



&NA CL' 




RANGED 




T AO 


SPSi, K 






t*D 


JNTCH 


C ^ i 


J N T 0 M 


TAD 


! n'T-JH 




K01S2 


SiA CLA 


?AO 




TAD 


K740? 


^C^ 


TR»SM2 


TAD 


Tft/S^2 


CU 




OCA 


UPDATE 


TAD 






km?- 






T40 




TAD 








TAD 


SECFLG 


CLA 








TAD 


SPSEC 


am 




DC A 


COHUtC 




DON'S FC 


s; 




T AO 




CLA 




PANGEN 




TAD 


SPTSK2 


AND 


K^0i7 


DC* 




" A A 


TRASNS 


ISH 




JHP 




DC* 


NSREC 






OS* 


SAt 


?AU 


- A ''Ah 




^Ag?g 


SIA fiLA 






FILLER 


T&D 


SCABUr 


CKA CUL 




T AO 


CARCC 



A^lS, JS£ IT 

/UO, USE H A X I H U H IN THE MACHINE 



/At' ? 3LCCK FLAG 
/NO, hi AWSOH 

/INITIAL HALF SLOCK Bit 

/H ASK 

/HALF BLOCK SET???? 
/ITS, setup WC POINTER 

/WC BUILDER 



/UPDATED FOR FWSES 



/Wf.R£ 
/7ES 
/1AKE 
/SAVL 

/WAS 



SITS 

TntRF A K* V 



max: 

IT 

SECTOR f LAS 
IT SET???? 



SECTOR POINTER 



/USE RAKiOOH 
/SET OPERATOR INPUT 
/«t%* cut 
/Save 



/CONSECUTIVE TO OS 
/GET TRACK FLAG 
/* : <tS IT SET???? 
/USE RANDOM 

/GlT iwput 

/haSk 

/STARTING SECTOR 
/COMPUTE INITIAL WC 

/UPDATE BY BUILDER 
/INITIAL WORD COUNT •••• 
/GENERATE RAKDOH CA 
/SAVE If 

/ ^ A S K FIELD SITS 
/EATONDro FIELD???? 
/INITIAL OA S, 



I* A L 1 8 V142 



l7i42 PAGE 

















' ! : ? 


: 5 ; t 










f VALUE 


.'723 


iiSi 


TAJ 




-GREG 


/ S L T *D-D COwN! 




r?2i 


7B41 


C|A 










?722 


1130 


TAD 




CAREC 


/ADD IN CA 




??23 


1316 


TAD 










??24 


7630 








/WITHIN BOUNDS??' 




P725 


5332 




FILLER 


/vrs* initial Ck 


0 , K » •••• 


!?726 


U50 


CONCUR, T AO 




SuNBUF 


/NO, USE PRCGRsH 




^727 


3130 


DC 4 




CAREG 


/SAVE IT 





?730 
^?3i 
i?732 
P733 
^73 4 
?733 
f 7 36 

.-741 
P7<2 
?743 
?744 
?745 
^746 
?74? 

0752 
e 753 
?754 

?7^6 
P757 

£763 

?772 

e?74 

2 775 
2776 
£777 



i ? 7 c 
12-34 



4426 

as 

3335 
7432 
3143 
4421 
3112 
1112 
3411 
713 



74SJ* 

5337 
6201 
1166 



K170 

35 4 7 

35^6 
12 83 
1002 



2116 
7ZC-3 
1116 
4432 
5200 



TO TILL AND CHECK SUH SUFFER 



%1-TQZH 
TAD 
DC A 

SETFLO 
DC a 
HIT 

net 

RANDAT 

OCA 

Ta.' 

T A3 

oca 

I S3 
JHP 
CO? 
TAD 

SN* Cl A 
JMP 



TRAS«1 
1Ra5»«1 



/ 

/ 



PAGE 
/ 

/ROUTINE TO POLE DRIVES 



POLNEX* I Si 
NQP 

SAHPOU TAD 



/SETUP A^D SAVE GENERATE 8 
/SETUP TRY COUNTER 

/riFLO * bus-Tal * *u?o 11 * 12 

/FIELD TO BUFFER J N AC 

/CDr re purrER 

/•SUM ;■• J T »' 

/.-•'••>'• *i " AT A 

/S* VI. OuTPut WORD 
/GET SACK WORD 
/STORE I M BUFFER 

/GET BACK WORD 
/*DD In LAST 
/LINK set?; 
/ADD H : ■ 
/SAVE FCK ^EXT 
/UPD*T£ SUPPER TALLY 
/*ORE *0PDS TO GO 



/ERROR PLAC SET???? 
/ POLE DRIVES 

/V[Si MUST BE A WRITE tRRQR 



PCLOSK 
POLNEX 



/UPDATE POLE POINTER 



/D"ECK RUf* POINTER 
/TRY NEXT DRIVE 



PAL12 V142 



: r . 5 

I 6 

7 

1710 

im 
i?i2 

1313 
1?14 

i?i3 

l?i6 

1?22 
1??1 
1722 

1S24 
If 25 
1P26 
l?!27 
1^33 
1B31 

i?S2 

ii*33 

1^34 
S235 



*. •. : a 
. ■ $ 
7l.*4 
4444 
^442 

7450 

1376 
7650 
5236 
3157 

734^ 
1116 
71 04 
4436 
761!? 
5200 
1x16 
71^4 
4432 

b2H 



16-JUL«73 
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/recalibrate o.k. 
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/GET DISK NO, 



POlNCX 
?-DREC 



/SEEK 
/ E T f R 



«&NDOH TRACK 

Pour "isks 



1?36 
US? 
l?4g 

l?4i 
1^42 
1?43 
1 ? 4 4 
1045 
1246 
1047 
1053 
l«i 
1T52 
1?53 
1054 
i?5 5 

lese 

1?60 

iPAi 

1^62 
i?63 
i?&4 
i?65 

i?66 
1?67 

i?70 

1??1 

1072 



1116 

1155 
3112 
1512 

1142 
3142 
1167 
764S 
^ 350 
151? 

ri22 

1114 
3125 
315? 
*434 

5272 

7342 

3166 

*435 

£141 

5777' 

76?4 

7700 

5350 

f>?76^ 



COTIT f 



T AD 

AND 

TAD 

DC A 

TAD 1 

AND 

TAD 



POLDSK 

K0203 

OSKPDT 

TRASWi 

TRASH! 

K3037 

INTCM 

INTCH 



TAD 
$?A CL* 



I YRASKl 

A N 0 k?76^ 

T4D TRASH3 

OCi I N T D A 

PEWRT, OCA CRCFLO 
DISKCO 
4 4;:0 

JMP SOREAO 

CL* CLL CM A 

OCA ERFLG 
R E S R A M 

IS? STATRY 

JMP REFILL 
LAS 

TRY? I H # SKA CLA 

JMP RESEEK 

JHP REFILL 



/GET POINTER 
/MASK 

/OH DISK ADDRESS POINTER 

/Gl v DISK ADDRESS 

/maSk DRIVE * EXTENDED BIT 

/ADD IN CO^M&ND 
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/MODIFIED TEXT POINTER 
/PRINT FOUR OCTAL 
/CHECK FQR NEXT XX; 



P AL1 ^ 


V142 


16-JUL 


•73 


17|42 


1335 


1776' 










lili 




T AO 


H5 


13 37 


765S 




SNA ClA 




13*0 






JHS J 


PRNOAT 


1341 


5.544 






'.♦3 


1342 


???? 


CRRflEX 


* : S2 


i! R" 0 


1343 






; 


; R ' C' 


13 4 4 






ClA c l u 


uc 


1345 


^450 




ClRauL 




1346 


5630 




JHP 1 


ERRfl 


1347 


71S4 


NOTEX, 


CLL RAL 


1350 


3355 




DCA 


ESAVE 


1351 


2364 




IS2 


PCNTR2 


1352 


2364 




ISZ 


PCNTR2 


1353 


2010 




1S2 


AUTO10 


1354 


5333 


/ 


JMP 


AGAIN 


1355 






C? 




1356 


7 7 71 


< 7 7 7 1 , 


7771 




1357 


7764 


K7764 , 


77 64 




13 6 £ 


3133 


PRNDATi 






1361 


3234 


XTEXT, 


t rxpc 




1362 


2120 


XREC* 


PCREC »1 




P 0 0 ? 


PCNTRi t 






1364 




PCNTR2, 






1365 




P C N T ft 3 » 








1 ^6iS 








j i , 7 


4? 




i RTxi 




1 : f 7 ? 






LRTX2 






3 257 




£i?X3 




1372 


3K65 




r^TX4 




1373 


327? 




ERTXS 




1376 


2720 


/ 






137 7 


in? 










1«?2 


PAGE 










/ 

/SJS^OU 


tine to i 


SSUE "Ci 


1420 


0000 


/ 

CLDR* 








6742 


IDT2, j 


2CL^ 




14 32 


5600 






DIOR 


1423 


7*02 


ERHLT2, 


HLT 



PAGE 1.15 



/v--:.aTL rDK ^£TUSN 
/ENABLE CLfAR CONTROL 
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/SETUP Sir COUNTER 
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/Enable smtt suseace &nd sector 
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I7?i 
X7?2 
17?3 
J.7P4 
17?S 

17 06 

i??7 

1710 
1711 

1713 
1714 
1715 



V142 

1411 

m 

1011 
3135 
1137 
7041 
1136 
7650 
5276 
2144 
5312 
115? 
7640 
5272 
1142 

7001 
7650 
7542 
2200 
4 441 
?S?>5 
7774 

2363 
5334 
2355 
7032 
1115 
3363 
2120 
5236 

mi 

7402 
5312 
4*41 
02100 
0000 
527 6 



TAD 1 

car 

OCA 
TAD 
D C A 
TAD 
C I A 

tad 

SNA CL* 

:S2 

JHP 
TAD 

SEA CLA 

JHP 

TAD 

nc 

SNA CLA 

Cl* CLl 

ISZ 

ERROR 

0035 

7??4 

IS? 



J S3 
NOP 
TAD 
DC A 
SS2 
JMP 
ISZ I 

JHP ! 
HLT 

E R ;, < D £ 



17142 PAGE 1-19 
AUTOil 



CSREC 
iUTOll 
A D R E G 
D8REC 

DGREG 

KOERR 

FNDSUH 

NTWRKS 

crcflg 

'.♦3 



CM A 
DTCHK 



STGEN 

TRASM2 

S S R A N 

BUFTAL 

0TR1 

XERRD 

DTCHK 



/GET B^D DATA WORD 
/hO^C DF 
/SavE BAD WORD 
/GET ADDRESS 
/SAVE FOR PRINTER 
/GET DATA READ 

/COMPARE TO GOOD VALUE 
/WERE THE* ThE SAME 
/YES* ^0 ERROR 
/FIRST TlhF PRINT???? 
/NO* JUST ADDRESS AND D A ? & 

/CKC ERROR???? 
/YES i YOU GOT IT 
/MO 

/UPDATE 

/TINE TO SET NON-RECOVERABLE 
/YES, SET JT 

/UPDATE FOR ERROR RETURN 

/ERROR DATA 

/POINTER 

/POINTER 



/UPDATE SUFFER TALLY 
/hc^E WORDS TO CHECK 
/Check FOR COMPUTER ERROR? 
/&LI O.K. 

/computer must be 00«n s checksum 
/Fared wopo-bv-woro compare worked, 

/OTHER ERRORS IN BUFFER 



0*33 



/CHECK RES? OF SUFFER 



1716 



1717 
1720 
1721 
17 2? 
1723 
17 24 
1723 
1726 
1727 
173? 
1731 



7X31 
1375 
1376 
1377 
3375 
7 0 04 
1375 
1376 
1377 



/ROUTINE TO GENERATE RANDOM ^UngtRS 
/ 

Random, 0 

CL* cll iac 

RAOi 



TAD 
TAD 
OCA 
RAU 
TAD 
TAD 
TAD 
OCA 



RA02 
RA03 
RADi 

RAD1 
R ADS 
RAD 3 
RAC2 



/o 



17*42 PACE i*2Z 



1732 
1733 

1759 
X 736 
1737 



1741 
17^2 
1743 
1744 
1745 



1375 

12? 7 
337? 
1377 
5717 



7sn 

1S71 
1373 
7j£ 



1746 3-m 

1747 <J72 
1753 7012 

1751 1371 

1752 3372 

1753 1372 

1754 §?4i 



1755 

1756 IZJt 

175? 3373 

1760 1372 

1761 3574 
Xfh2 5755 







TAD 


3AD1 


TAJ 




TAD 


*AD3 


QC& 


"AD3 


TAD 


RADS 


JM? I 


RANDOM 



/EXIT, RANDOH NUMBER IN AC 



/GENERATOR FOR RANDOM DA^ A 
/ 

C M 3 « T s 



TAD 
TAD 

DC* 
TAD 
RTR 
TAD 
OCA 
T AO 



I AC 

Rani 

RAN2 

RANI 
RAN2 

RANI 

R A N 2 
GNDAT 



/routine to Save random generator 

STCEN, 0 

tad n&m 

DC A SAV1 
TAD RAN2 

DCs 

JM? I STCEN 

/ 

/ROUTINE TO SrS£T R & n D 0 K CEN£ft A Toa 



1763 


.5k 01 








17 6 4 






T*P 




1765 


:*£U 




OC£ 


*ani 


1766 


1374 




TAD 


Sav? 


1767 


3S72 




OCA 


RANg 


1772 


5763 




JMP I 


rsran 


177!. 


1234 


/ 

KA^it 


1234 




17 72 


S&70 


SA*J2, 


5670 




1773 




/ 

sm# 






1774 




SAV2* 






177S 




R A D J « 


,1234 




17 7 6 


567? 


fUD2 e 


5670 




177? 


«321 


PADS* 


4321 





/ 

/ 

pass 
/ 

/ROUTINE TO $£UO k DRIVE TO 

/and save the track 



I RANDOM TRACK 



Pal 12 vi«2 



i6»JUL-73 



RACt 1*21 



2^8 


3 002 


2?^ 






3110 


227-3 


7634 


2?;m 


7316 


2JW5 


7 64 0 




7402 


2pr 1 7 


3157 


2?10 




2P11 


711?? 


?Pl2 


1193 


2?13 


3327 




1777' 


2?15 


7652 


2?16 


5223 


271? 


1163 




0102 


2221 


1162 


2r722 




2??5 


1776* 


2?24 


755S 


2325 


S233 




172? 


2227 


ll;,3 




7430 


2^31 


7301 


2?32 


7412 


2:3 35 




2034 






1310 


2?S6 


3727 


2 23? 


1727 




711$ 




7422 








114? 


?M4 


i?2 7 




7 t j3S 






2^4? 


1776' 


??50 




??5i 


325* 


275 2 


1727 


2753 


B1S2 




i-Ul 




37 27 


2?E6 


1 ? 27 




Viol 


2?62 


1077 


2' S &1 


•a i * 4 


??62 


L?2? 


2263 


B1B2 


?7S4 


*M-4 6 


22&S 


*443 



SEKOUT* B 



STRMI.T 
R£S£K { 



A ' . ■ 




«7 77^ 






WA|f 














DC* 






7*3 




WAJT 








TAD 




0$K»0T 


OS* 




CWKTN 


TAD 




TRKfLS 


SNA 


eu 




J MS* 










S*?RK2 


A hi 0 




K776S 


TAD 










OSK0UT 


'T- 






5NA 


CLA 




J«? s 






TAD 


i 


CMKfN 


TAD 






sa 






uc 






SKR 






HANSEN 




i ^ ..;= 




K7761 


TAD 




WAI T 


DC& 


! 




TAD 


! 


CHHVH 









DSKOUT* 



SKOUT *2 



r-^;l? 
H^7! 



K?7ft« 



/4as^ vr muhSer 

/MASK 

/PROGRAM 8t0W>? 

/ 0 « 0 u R A H STD^ ON S^?TC^ 4 

/CLlaR CSC ERROR POINTfR 



/GET ADDSCSS SAVE POINTER 

/SAVt MADE R0INTER 

/GCT TRACK fL AC 

/WAS IT SET?I 

/NO » USE OTHER 

/GET ORCR&TCR TRACK 

/ H A S K 

/GET OPERATOR TRACK 
/OO IT 

/GET SEQUENCE fUG 
/WAS FT SET?! 
/'vD ; USE RANDOM 
/ GET U$7 USED 
/UPtJATE 
/L ! Stt? 

/r~S ! SET EXTENDED S ! T 
/U-Da?T lUj CHECK BOUNDARIES 

/generate random address 
/mask off 

/ a IN DRIVE NgMSER 
/SAVE MADE ADDRESS 



/WAS 

/A HO 
/'C t T 



/GE T 
/^AS 

/DO 



rr $cr 

SON'T CHECK LIMiT* 
!N fUDGE FACTOR 

SEQUENCE ElaG 
IT SET???? 



_ a y 

DSKSK 



/!^*SK 

/ad!) in drive 
/save: it now 
/get address 

/mask DRIVE NUMBER * EXTENDED 
/^UNCTION SEEK ONLY 
/LOAD CCMM&NO 
/GET ADDRESS 

/LOAD D!SK ADDRESS * GD 
/WAIT FOR DONE EL AG 



PALI? Vi42 



2^66 
2267 
2??g 
2?71 
28 7 2 
2273 
2?74 
2275 
2??6 
227? 

2i?a 

2121 
2102 



2103 

21? 5 
2l?fi 
21?? 



2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2120 
2121 
2122 
2123 
2124 

2125 
2126 



212? 
2133 

2i3i 

2132 



2135 
2136 
2137 
2l4g 
2141 



52*5 
4442 

5273 
0075 
7650 

4441 
0033 
7542 
2200 
4452? 
5600 



0830 
1171 
7110 
1170 
57M 



7300 
6232 
6031 
3313 
6036 
ZS25 
1326 
6S46 
684* 
3321 
6042 
5710 

zm 

220 0 



zesae 
3310 
1327 
3350 



2133 1313 

2134 2327 



784 i 
1067 

5727 
1310 



ROSTAT 
SH A 
JHP 

AND 

SNA CLA 

J»P 

£R*OR 

S033 

7542 

IS2 

CLRALL 
JHP | 



17 i 42 
>*1 



S£KC» 
K1777 



SCKEX 



SEKOUT 
SEKOUT 



PAGE 1-22 



/ r e £ 0 status 

/ do fl*g set???? 

/SlCk ERROR, NO D0*E Fl'AG 
/kaSi< OTHER error SITS 
/ANY SET???? 
/NO ? EXIT 

/p^l^r error 

/HEADER PO ! NITER 
/MESSAGE POSTER 
/UPDATE TOR RETURN 

/CLEAR status 



/ROUTINE TO GET AC 
/ 

GEtAC* 3 

TAD SVLNK 
CLL R*R 
TAD SAVAC 
JM? i GET AC 

/ 

/ROUTINE TO WAIT FOR KEY FROM OPERATOR 
/ 

WAIT* £5 

KCC 
KSF 



AND 
TAD 

Tsr 



K177 
K20g 



JHP I wait 

/ 

KI?7« 0177 
K220* 0220 
/ 

/ROUTINE TO CHECK FOR YES OR NO 

chkyn, a 



2142 



DC a 
TAD 
OCA 
TAD 
iSI 
CIA 
TAD 

SNA CLA 
JHP ! CHKYN 
TAD WAIT 
!S2 CHKYN 



WAIT 
CKKYM 
CHKPOT 
wait 
CHKYN 

K0316 



/EXIT 



/SAVE POINTER 
/GET PC STORED 
/SAV£ |T 



/NAS IT 4 NO 
/YES 



^110 V142 

2143 7041 

2 I'M 1P78 

214$ 7653 

2i«6 572-7 

2147 5750 



16-JUL-73 



2151 
2152 
2153 
2154 
2155 
2156 
215? 

2l7fe 
2177 



22~g 
22^1 
2?^2 
2 2? 3 
?2P4 
2 2i*5 
22D6 
2207 
221* 
22U 
2212 
2 213 
2214 
2215 
2216 
221? 
2228 
222i 
2222 
2223 
2224 
2225 



2226 
2227 
2230 
2231 
2232 
2233 
2234 



000$ 

3056 
1156 
3310 
1710 
7&4£ 
2352 
3750 

3552 
3S47 
2220 



0 d ? 3 
7 34 0 
3172 
7148 
3173 
IIS? 
4445 
1131 
3132 
1125 
3U2 
1125 
0102 
3113 
114^ 
1600 
4444 
1112 
3363 
1113 
4446 
6221 



2 '? 7 7 * 
31.44 
4427 

1173 

5237 



17142 
X2331 



PACE 1*23 



CIA 
TAD 

SN* CLA 
JHP ! CHKYN 
JHP I CHKPOT 



/ROUTINE TO CHECK DISK RUN POINTERS 
/ 

CHKPOT, 0 

AND K0S03 
TAD RUNPOT 
DC A WAIT 

TaD I WAIT 

SHA CLA 

ISH CHKPOT 

JHP I CHKPOT 



/ n' * S IT A VES 

/YES 

/w*S NEITHER 



/GET RUN POINTER 
/RUN THIS DS1VE 
/NO 
/EXIT 



PAGE 
/ 

/ROUTl?^£ TO WS HE OR READ SECTORS SELECTED 
/ 

OSKGO $ B 











RELOAD 


/SETUP FIRST TIME POINTER 


CLA CLL 


CM k 




OC A 


nan* 


/SrTjP ?;SST T I «r POINTER 




CASEC 


/GET INITIAL CURRENT ADDRESS 


ID CUR 




/uOAD CURRENT ADDRESS 


no 


wests 




OCA 




/SETUP FINAL aC 


U3 


! N T O A 


/GET INITIAL STARTING SECTOR 


rr i. 


TSaSH* 


/SAVE 


TAD 


1NTDA 


/GET DISK ADDRESS 


AND 


K7760 


/MASK 


OCA 


TRASH2 


/SAVE 


T AO 


4 NT£m 


/err initial COMMAND 


Tad i 


DSKOC 


/Or? READ 0* WRITE 


LOCMD 




/LOAD CQHMA^D 


TAD 


TRASHl 


/SECTOR TD DO 


AND 


K0017 


/MASK 


T AO 


TRASW2 


/ £OD TO TRACK 


LP ADO 




/LOAD ANO £0 


I ON 




/turn Interrupt on 



/ROUTINE TO CLEAR OR CHECK SUM BUFFER IN 8*C* GROUND 



DC A 

setflo 

DC* 
TAD 

SNA CLA 
JHP 



T £ H£ R 2 
p'NOSUH 



CHNCOF 



/CLEAR LONC 
/ClCAR suh check 

/GET FIELD TO SUFFER 
/SAVE CDF 

/TIME TO GO 
/YES I I ! | 



¥ k u I d 


vi 4 2 


2235 




??36 


5232 


2? 3 7 


1 i 27i 


7.2*7- 




2241 


' ^32 


22*42 




22*3 


£ f z 


2? 4 4 




2245 




22*6 


1174 




'? S °H 


2250 


3 i 28 


225i 


3120 


2252 




?253 




225$ 




2255 


5262 


2256 


34 H 


225? 


2J.74 


2262 


5 256 


2? 6 5 


52 72 


2262 




2263 




2264 




2265 


7 3 ? 


2266 


7001 


226? 


21 7 4 


2270 


5 ?6 j 


2271 


3 1 4 


227 2 


62.31 


2273 


1120 




765S 


227H5 


5S74 


2276 


4776' 


2277 


5237 



2320 

?3?2 
2323 
23?4 

23?6 
23/7 
2310 
2311 
23X2 
2ZU 
233.4 
2315 

2zh 



&741 
761B 
5316 
6031 

m 

7402 
6042 
5353 
6034 
6g46 

53 S3 
3173 
2112 
7030 





17142 


JHS 


T!M£ 


JHP 




■ Tad 


BUFTAL 


CIA 




TAD 


FNREG 


SN* 




JMP 


WRKDON 


CIA 




DCs 


CLRB^K 


Tao 


CLR8AK 


CI A 




T aD 


8UFT4L 


iJ C A 


buftal 


MtT 




? aD 


cmres 


SM a CL* 




jHP 


WASRO 


OCA I 


AU7C11 


1S2 




JMP 


COCLk 


JMP 


WRKDDN 


T AO 


F NO SUM 


CLL 




TAO J 


AUTOii 


S2L 



IAC 
ISH 
JMP 
OCA 

WRKDON* CDF 
TAD 

SNA CL A 

/ 

/INTERRUPT SERVICE 
RE TURN » DSKP 



GOCWK 
FNOSUH 

0 

8UFTAI 

CSKEX 
TJME 
STRWRK 



DSKRET 



Htt 
1ST 
JHP 

KEYRETi KRS 

?IS 



OCA 
ISH 
NOP 



KEYRET 



RETRN 



FZRffM 
TRASHi 



/WMt FOR fjRST INTERRUPT 
/-MOT HERE VET 



/COMPAQ T3 SOrTWARE F f NAL 
A'MT reft DISK???? 
/YESJ j ♦ • 



/SAVE DIFFERENCE 



/UPDATE 3UPFER TALLY 

/cor to buffer field 

/«EAD OR WRITE 
/«*S A READ J i 

/^S A WRITE, CLEAR SUFFER 
/UPDATE T^LIV 
/*03E TO CLEAR 
/DONE with SOME 

/CCT WORD 



/Save 



CLEAR POINTER 
CHECKSUM 



/LAS? WORD DCNE?m 
/EKJ T 



/WAIT FOR INT, OR DONEJM1 



/cis* skip idt 
/vot the disk 

/SO DISK 

/CHECK READER FLAG 

/was TMr sr AD rR 
/CHECK PU^CH FLAG 
/UNOE^EO INTERRUPT 
/w*S PUNCH, CLEAR PL AS 

/GET 1 WPUT 
/PRINT IT 

/*AS CLEAR DEADER FLAG 
/ « £ 7 L* R n TO DISK 
/CtE aR T?*£ POINTER 
/UPDATE SECTOR 



K321 
2322 
2323 
2324 
232!^ 
232S 
23 2 7 
2330 
2331 
2332 
2333 
2334 
2335 

\® 

g:f 

?S4« 

234* 
23*7 

2352 
23 f >3 
2354 
2355 
2356 
2357 
236S 
2361 
2362 
2363 
2364 
2365 
23 6 6 
2367 

2m 

2372 



16* JUL* 73 



HIS 
1132 
3132 
&?45 
WZ 
U22 
1073 
7640 
5357 
6742 
1132 

mi 



\ m 

1074 
1600 
1140 
4444 

iiiz 

006 3 
1513 
4*46 
4 4 54 
6244 
6001 

1123 
7 710 
7r01 
7DS51 
3371 
7331 
tUl 
7iS? 



7774 



2374 
2375 



23?6 3i2g' 
?3?7 



CLRS?A, 



73 


17H2 




UPDATE 


TaD 




OCA 


FWREC 


DRST 






STRESS 


TAD 

tad 


STh£K 


S2A c 




JM R 


STA?£R 


OCLR 






FkRES 




GOACN 


jns 1 


XGETAC 


RHP 






0 


f $1 


RELOAD 


UHP 


WEXSEC 


7 l 0 





TAD 1 

7 AO 



1 1 

^E^SCC, TAO 

RETRNj jhS i 

ION 

STATER, TAB 

SPA SLA 



E " - 3 ! 
77?4 



* NT Cm 
fRASwi 
YiUSH2 
XGETAC 

0 



/RTAD STATUS 

/Save Rr 40 roR PS|NT£ ^ 

/C : ?*L W DONE fU5 
/STATUS ERRCR 
/CLEAR STATUS 

/LAS? TRANSFER 
/MORE TO TRACER 
/GET AC AND U*iK 
/RESTORE FIELDS 
/RETURN 

/CLE** f fRS? T f H£ POINTER 

/2r^ all Flag 
/G :I RC4D os wft ITC 

'Ti*°ti CSrtMA ^° R £^!ST£R 

/ulT sector TO DO 

/^ASK OFF 

/ADC IN T R i C K 

/LOAD iNO CD TO DISK 

/Gi:? A C A NO LIWK 

/RE is TORE FIELDS 

/TUR'J INTERRUPT OH 

/Ex?r 

/CEt LAST COMHANO 

/WRTTE OS RE Ag 
/WR1 TE 



DEADER POINTER 



/HDDtrv 
/AC TO 
/GET Tpy POINTER 
/ T I M C TO SET JT777? 

/HCD t r ? ED f-'EADE^ PDl^TrR 
/HESSAGr POSTER 
/UPDATE f 0 R ERROR 

/EXIT 



?4rg ^a^s 

24>i 4437 
?<?2 3365 



/ROUT s NE TO wrf ONE IN dcT«l 
RECESV 

oca i' Save I 



/if 



/SECEfVE 

/Save it 



ill? 


V142 


16«JUL* 


73 




17142 




1600 




T*D 


I 


OCT 1 


2 A? 4 






AND 






24 f 5 


i So5 




TAD 




K0P6P 


24 C 6 


7141 




CLL 


CIA 




24 P 7 


1365 




TAD 




ISAVtl 


2410 


7623 




SNL 


Cl* 










JMP 




I NtRR 


24;2 






TAD 


I 


OCTl 


2413 


5*064 




AND 




K0S70 


2414 


7H0 




CLl 


RAR 




2415 


7012 




R?R 






2*16 


1065 




TAD 






2417 


704g 




CM A 






24 2 0 


13 6 5 




TAD 




S S A V £ I 


2421 


7638 




SHi. 


Cl* 




2422 


5226 




JHP 




INERR 


2*23 


1365 




T AO 




!S*vci 


2424 


?S&1 




AND 




K0007 


2425 


2223 




:s? 




OCT! 


2426 


2232 


inerr, 


I S 2 




OCTl 


242? 


5600 




JMP 


I 


OCTl 



2433 
2431 
2432 
2433- 
2434 
2435 
2^36 
243? 
244? 
2441 
2442 
2443 
2444 
?«<5 

2<«6 
2447 



?£6^ 
1110 
3366 
3367 
4424 
0072 
5630 
1367 
2366 
741S 
5246 
?£B4 
7006 
5233 
2232 
5630 



/ROUTINE TO RECEIVE FOUR OCTAL 

/ 

0CT4, 



TAD 
DC * 
DC A 
ONE IN 
02570 
JMP I 
TAD 
IS2 
SKP 
JMP 
RAL 
RTL 

JMP 
ISH 
JMP I 



1SAVE2 
ISAVE3 



0CT4 
I SAVE 3 
ISAVE2 



0CT4 + 3 
0CT4 
0CT4 



/GET LIMITS 
/MASK 



/GET INPUT 
/IN LIMITS???? 

ERRr,R EXI? 
/GET LIMITS 
/MASK 



/G£T input 

/IN LIHITS???? 
/NO, ERROR 
/GET INPUT 
/HAS* 



/good exit 



/SETUP COUNTER 
/STAR V fc:*H 2 
/RlCEIVi ONE octal 
/LIMITS 
/ERROR EXIT 
/GET LAST 
/UPDATE COUNTER 



/EXIT 



/EXIT OCTAL IN AC 

/ 

/ROUTINE TO UPDATE AND CHECK PoR PASS COkPlETE 



2652 


2000 


/ 

CKTIM, 


If 






2451 


1123 




TAD 




CMREG 


2452 


2260 




AND 




K0226 


2453 


7110 




CLL 


R*R 




24 5 4 


3366 




DC* 




I SAVES 


2455 


1366 








I Save 2 


2*556 


1J53 




TAD 




TIHPST 


2A5? 


3365 




DC A 




ISAVE1 


2462 


7301 




CLA 


CLL 


1AC 


2461 


1151 




TAD 




CONSEC 


2462 


1765 




TAD 




1SAVEI 


2463 


3765 




OCA 




iSAvci 



/GET CURRENT DRIVE NUMBER 
/MASK 

/POINTER 

/GET T I H£ POINTER 

/SAVE IT 

/ONE FOR 0 

/GET AMOUNT DONE 

/ADD IN AMOUNT COMPLETED SO TAR 
/SAVE IT 



PAL10 


V142 


16-JUL 


-73 


17142 


2464 


7620 




SNL OLA 




2465 


5650 




JMP I 


CKTIM 


2466 


4^33 




ft ANGEN 


2467 


3777' 




DC* 


RANI 


2473 


4 433 




RANGEN 




2471 


3776' 




OCA 


RAN2 


2472 


7100 




CLL 




2473 


1365 




TAD 


ISAVE1 


2474 


1357 




TAD 


K3024 


2475 


3365 




DC A 


ISAVEl 


24?6 


2765 






ISAVCi 


2477 


1765 




TAD t 


ISAVCt 




1146 




TAD 


h AXT 1 M 


25P1 


7s20 




SNL CLA 










JMP I 


CKTIM 


25?3 


3?65 




DC A | 


5SAVE1 


25^4 


1366 




TAD 


ISAVE2 


25?5 


7640 




Cm a 




25^6 


3366 




DC A 


! saves 


2537 


1364 




TAD 


CHPPOT 


2510 


1356 




TAD 




2511 


2366 




1S2 


I SAVE 2 


2512 






JMP 




2513 


3366 




DC A 


1 Saves 


2514 


7340 




CLA CLL 


cma 


2515 


2766 




ISH I 


! SAVES 


2516 


7610 




SKP CLA 


2517 


3766 




CCA I 


! SAVES 


2520 


4453 




CRur 


2521 


4451 




PR.MTER 




2522 


3507 




MES17 




2523 


1123 




tad 


CMREG 


2524 


306S 




and 




2525 


7110 




CLL RAR 




2526 


1265 




TAD 


K2260 


2527 


4440 




TYPE 


2532 


7340 




CLA CLL 


CHk 


2531 


4#51 




RRNTEft 




2532 


3512 




HESiS 




2533 


7604 




LAS 




2534 


?015 




AND 


K0100 


2535 


7653 




SNA CLA 




2536 


3541 






,*3 


2537 


4 4 22 




0* SCON 




254g! 


5 7 75 f 






RUN 


2541 


4774* 






TPS7A 


2542 


565S 




JHP I 


C K ? I M 






/SUBROUTINE ?0 READ STa 


2543 




R0S?* 


0 




2544 


i 7 4 iS 


tors, 


DRST 




25*8 






SKP 




2 54 6 


7432 


ERHLT5, 






254? 


3122 




DC A 


STREC 
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/LINK UP???? 
/NO » EXIT 

/GET RAN2CH NUMBER 
/RE»PR I M E GENERATOR 
/GET Random number 
/ ft E «PR I ME GENERATOR 



/SCCCNC TIME POINTER 
/UPDATE IT 
/GET COUNT 

/ADD I N PUDGE PACTOR 
/PASS COMPLETE???? 
/NO, EXIT 

/*£RO SECOUND COUNTER 



/SETUP COUNTER 
/ADD IN POINTER 

/COMPUTE BUFFER 

/SAVE ADDRESS POINTER 

/UPDATE PASS COKPLETE POINTER 

/HOLD AT 7777 

/PRINT "DISK" 

/GET LAST COMMAND 
/MASK 

/TYPE DISK NO, 

/PR | N'T "PASS COMPLETE" 



/MASK 

/?AS8 COMPLETE DISCONNECT???? 
/NO WAV 1 S I I 
/Dump DRIVE 
/MORE To TEST | If I 
/STATUS-COMPLETE TYPEOUT 
/EXIT 



/READ STATUS 1CT 

/SKIP TR&P 

/SAVE RESULTS 



2553 
2551 



1122 



2552 0033 

2553 6744 

2554 5752 



16*UUL*?3 



TAD 
JHP I 



17*42 PACE 1*28 

$?R£S 
SOS? 



/CXI? 



/'SUBROUTINE: TO LOAD CURRENT ADDRESS REGISTER 
UOCA# 0 

ICT4* OtC4 /LCAS CURRENT ADDRESS (OT 

JKP 1 LDCA /CXI? 



2555 7402 



ERHLT4, HIT 



/SKI? TRa? 



/SUSRQUT^L Tf= LOAD TR^JK HU^FSS «EuIS?£k 
/ 



2556 


0200 


LOAD, 


0 


2357 


3126 




OCA DAREC 


2562 


U26 




TAD OA REG 


2561 


67 43 




DUO 


25 6 2 


575i 




JKP I LOAD 


2563 


7402 


ERNLT3, 
/ 


■ HI? 


2564 


5531 


CHFPO? j 


■ D2CHP *3 


256S 






g 


2566 




J SAVES s 




2567 


%%m 


tSAVC3i 




2374 


3003 


/ 




2575 


3600 






2576 


1772 






2577 


1771 








2602 


PACE 





/^DaO DISK ADDRESS R£C 1 3?Cf? 

/exit 

/SKI? TRAP 



/ROUTINE TO CE? RANDOM OR OPERATOR QaTa 



26Sg 


& o 0 :*. 


RNWRD, § 




26^i 


7*02 


SWOAT* WLT 




26^2 


5600 




1 RNWRQ 


2603 


6201 


cor 


a 


2624 


1412 


TAD 


I *UT012 


26.-5 


7402 


RECDP, HL7 


2626 


2117 




OPRTaL 


2607 


9 6 0 e 


JMP 






3220 




PRINT 


2611 








2612 






OPRTAL 


2613 


7340 




CUU "HA 


2614 




TAD 


OATPOT 


26i5 


30:12 


DC A 


A U 7 0 1 2 


2616 


1220 




PRINT 


2617 


3608 




I RNWRO 






/ 

/ROUTINE TO 


TyP£ 






/ 




2620 




PRINT, 3 




2&21 


6046 


TlS 





/^ODlfiED SWITCH 

/Exit 

/MO^E CDF* 
/GET DATA 

/BurrcR cor 

/UPDATE TALL? 
/EX I T 

/SAVE WORD 
/REPLACE TALLY 



/REPLACE AUTO INDEX 
/GET SAVED WORD 



PALIS ¥i*2 

2622 6041 

?&?3 5222 
2624 

2625 720? 

2626 5620 



I6-gUL*73 



2627 


?O0f. 1 


263S 




2631 


3537 


2632 


1123 




00 6 is 


2634 


7110 


2635 




2636 


1200 


2637 


1 Si 6 3 


264« 


4440 


2641 


7340 




4491 


?6 4 3 


34 55 


26 4 4 


4? 77' 


254^ 










3 230 


26 53 




2fiSl 


320^ 






2653 


322? 






26 33 




2656 


7610 


2657 


5627 


?663 


n%* 


?ftftl 






>2iM 






2664 


MM 










26 &7 




26 72 


2 4ai 


267J 




2672 


S271 


2673 




26 7 4 


7041 


2675 




2676 


3 £ si 


267? 


734 3 



27>i 



1130 
3011 



2722 1160 



TSF 

JHP 

rcr 

UMP I 



17142 

'.•1 

PRINT 



PA5E U29 



DUHp f 



/ROOTLE tS DU*P AND REPORT DISK STATUS 

/ 

0 

PRNTER 
*£5l7 

? &D CHRCO 
SS06 



OCA 



OLA CL 
PRN7ER 
H£S15 



DCA f 
OCA 



SELCHK 



>«N7£ 



;-3 ; v r 



PU'vPOT 

PNWRD 

PRINT 
£N*RC 



?vODSKS 
/ 

/Rayrj 
/ 

STPLOj 



AUTOil 
0 A T F L S 



/PRJNT ^DISK » 
/GET UST COMHANO 

/SAVt 

/SET DISK NUMSEft 
/TVPr D ?SK NUMBER 
/PRINT "DISCONNECTED? 8 
/'frP'C STATUS REPORT 



/SAVE POINTER ADDRESS 
/CLE iR RUN POINTER 



/check pop more pointer 

/c^tck select pointers 
/disk not here 

/HCSt AVAILABLE 
/UPp A T£ ?*0!^T£Ri 

/PRINT *018K" 



/PR I NT 
/ ERROR f 



'SYSTEH DOWN* 
NO DISK AVAILABLE 



* SUFFER ?&LU? 



/CET INITIAL CA 

/Save 

/GET D*T 4 r LA G 



A 



PALIS VI 42 



16-JUI-7S 



17 J 42 PAGE U30 



2725 


? t 5 




SNA 


CL* 




/ ft ft *J £ r 3 E. i Se f £ 


2 7 ? 4 


5"cl2 








• 


u & L r< i. u t. « f? 


27 5*9 


llf 7 




T AD 




K12 




2?i*6 


3117 




OCA 






/SETUP SPECIAL TALLY 


27?7 


734? 




CL A 


CLL 


C*A 




2710 


1152 




TAD 




DATPC? 




2711 


3012 




DC * 




*UT0l2 


/setup special auto index 


2 712 


ll 40 




i AD 




I N 7 C H 


/ <~ r T i iQ' ^ M Mi i f J 
/ U £. ( i. S i Cu"nf '<Li 


2 7i 3 


30 64 




AN D 




K B f? / t * 


/ ^ A S K 1* ! E L 0 8 I 7 U 


2714 


1105 




TAD 






/•Ant, r O r r n LiUr 


2 713 


32 £5 




DC ^ 




p e c d f 




2 716 


1 205 








R£CDE 


/GET BACK CDF 


2717 


5673 




JMP 


I 


stelo 


/EXIT. HELD I N AC 






/ 

/SU8RG 


u n N E 


to 


ISSUE "DSKP" 


DISK SKIP I0T 


2?£0 


?202 


/ 










2721 


67 41 


I DTi s 


OSKP 






/DISK SKIP |D? 


27 22 


7*12 




SKP 






/DID NOT SKIP 


2723 


2320 




ISZ 




SDKP 




2724 


5720 




JHP 


1 


SOKP 


/EXIT 



2725 
2726 
272? 
2730 
2731 
2732 



3123 
1123 
6746 
5725 
7402 



/SUBROUTINE TO LOAD COHNaND REGISTER 
/ 



IQT6* 



DC A 
TAD 
OLOC 
JHP X 
HL7 



CMREC 
CrtREG 



ERHLT& 
/ 

/ROUTINE TC 



/LOAD COMMAND REGISTER 
/EXIT 

/SKIP TRAP 



;hange device igt codes 



2733 


763 4 


CHANG s 


LAS 




/GET SWITCHES 


2734 


235$ 




AND 


A0772 


/MASK 3-3 


2735 


3325 




DC A 


LOCH 


/SAVE DESIRED CODE 


2736 


13 60 




TAD 


CKNPOT 


/PO I NTE^ 


275? 


3112 




DC a 




/ADDRESS POINTER 


2740 


1357 




TAD 


CCN7»1 


/ A m D U N T T0 DO 


2741 


3113 




DC* 


TS*S*2 


/SETUP COUNTER 


27* 2 


1512 


CHANGR t 


TAD I 


73AS«t 


/GET ADDRESS POINTED 




31 14 




DC A 


TRAfinS 


/SAVE *DO»fSS 


?7*« 


1314 




TAD I 


T»A3*3 


/GET OLD C^or 


2 7*3 






AND 


A7S37 


/mask err hl n code 


2746 


1325 




TAD 


uDCH 


/ADD IN OESJRED CODE 


??47 


3514 




DC A i 


?RAS*3 


/SESTChE 


275a 


2112 




IBI 


TRASwl 


/UPDATE POINTER 


2 7 : ■■ 5 






\%i 


tras>-2 


/UPDATE CHANCE COUNTER 


2752 


5342 




JMP 


CHANGR 


/hope to change 


2753 


7402 


CHNHLT, 


HIT 




/ALL DEVICE • D T CODES CHANGED 


2754 


5353 




JKP 


«»1 




2755 


»?70 


/ 

A077?« 


077S 






2756 


?0£7 


A?3g7* 


7007 






2757 


776& 


CCN?«i, 


7766 







PALI* V142 



•73 
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2760 
2761 
276? 
2763 
2764 
2765 
2766 
2767 
2 770 
2771 
2772 

2777 



2761 
2303 
2324 
2:532 
2?21 
14B1 

2555 
2544 
2730 
1405 

3302 
3222 



CHWPOT 
SETUSN 
STATUS 
CLHSTA 

II 

IDT? 
!OT6 
IOT7 



PAGE 
/ 

/ROUTINE TO TYPE 
/ 



STATUS REPORT 







TPS? A* 


0 










PRATER 




3?p* 


3375 




HE ST 




saps 


1110 




TAD 


H4 




3 24 2 




D C A 


TSAVE1 




3 243 




DCA 


TS AVE 2 




S244 




CC^ 


TSAVE3 




1243 


CHKRES* 


TAD 


TSAVEZ 


3?13 


1356 




TAD 


K002J3 


3011 


3243 




DC A 


TSAVE2 


3?12 


1243 




TAD 


TSAVE2 


3313 


1154 




TAD 


STAPGT 


3214 


3246 




DCA 


T SAVE 5 


3245 


124 4 




TAD 


TSAVE3 


3316 


4 4 3-3 




SELCWK 




321? 


5236 




JH? 


MOTS?* 


3320 


4 453 




CRLE 




3021 


4423 




SPACE 




3222 


1244 




TAD 


TSAVE3 


5223 


1865 




TAD 


K026P 




4 4 4 2 




TYPE. 




Si*25 


4423 




SPACE 






4423 




SPACE 




3327 


7346 




CLA CLL 


CKA nil 


3?3 0 


324 5 




DC * 


TSAVE4 


s?3i 


1646 




TAD | 


TSAVE5 


3?32 


4482 




DDTCL 




3?33 


?246 




%%l 


TSAVE5 


3??4 






\%l 


TSAVE4 


3*35 






JHP 


',•4 


3?»36 


224 4 




\%l 


T S A V E 3 


3,;* 3 7 


22*2 




IS? 


TSA'.;£i 




5207 




JHP 




33 A 1 


5633 


/ 


JHP I 


TPST4 


3242 




TSAVE1, 






3 3 4 3 


3000 


TSAVE2# 







/PRINT "DSK WARO SCET COHP« 

/MAXIMUM TO DO 
/CLEAR SDHE COUNTERS 



/LOCATION OE DISK STATUS 



/CHECK RUN POINTER 
/DISK NOT RUNNING 



/SPACE OUT ONE 
/GET DISK NO ■ 



/SPACE OUT ONE 
/SPACE OUT S^'E 

/ c 0 u n t e p tor reus words 

/CE ? STATUS 
/TYPE IT 



/UPDATE DRIVE NUMBER 



/MORE TO REPORT 
/EXIT 



16«JUL*73 



17l<2 PkCZ i«32 



3044 0030 
3246 0022 



324? 

S05t 
3252 
3253 
3254 
32*5 
3?56 
3257 

3?x 

3362 
3363 
3264 
3?6S 
3266 
3?6? 
3270 
3? 71 
3272 
3273 
3?74 

3276 
3P77 

si n 

3123 
3124 
31?$ 
3126 

3110 
3111 
3112 
3113 
3tl4 

3116 
311? 
3120 
3121 



0000 

0062 

1121 
3332 
2331 
5254 
2332 
5234 
3137 
120a 
4444 
7326 
445E? 
4443 
5265 
4442 
7520 
5307 
i>07? 
7643 
530 7 
445? 
1016 
120S 
4444 
4443 
530 5. 
4442 
IS?3 
7652) 
5647 
7323 

4441 
?£0 4 
7 54 0 
4453 

mm 

31 6 5 
4422 
2247 
3647 



S122 00g0 

3123 2331 

3124 5J22 



? S A V E 3 » 
?SAV£4 f 
TSAVE5, 



/ROUTINE TO RECALIBRATE SELECTED DRIVE 
/ 

R£STOR e S 



DC a 
TAD 
DCA 
IS2 
JHP 
IS2 
JHP 
DCA 

ldcko 

CLA CLL 
CLRALL 
DSKSKP 
. ■ « P 

SKA 

52* Cl* 

JMP 

CURAU 



K00B6 
TPS? A 
K7700 
?1ME«2 
TIM£R1 

T|HE^2 
'.•3 

CRCFLG 
TPSTA 

CMl R?L 



RESERR 
K1777 



LOCHD 
OSKSKp 

R Q S Y A T 
TAD 

SNA CL* 
JHP I 
CLA CLL 
ERROR 
J*034 
7540 

CRLP 

oiscow 

IS? 
JHP I 



TPST A 



R E S T 0 R 



/ROUTINE TO T 1 H £ A ND «AJT 
/ 

TIME. 3 



/Save drive number 

/SETUP COUNTER 
/WAIT FOR DISK TD CO 



/CLEAR CRC ERROR POSTER 

/CURRENT DRIVE 

/LOAD COMMAND 

/ENABLE SECALIBRaTE 8 1 f 

AL I 8 R A T C " 
/DISK SKIP I OT 
/ w A ; T FOR FIRST DONE Fl AG 
/READ STATUS 
/DONE r LA G SET???t 
/NO, ERROR 

/mask OThER tpROR BITS 

/ * N y SC*???? 

/YES, 

/CLEAR ST^-jS 

/ENABLE VI? SECOND DOME FLAG 
/ORIGINAL COMMAND 

/lcau Command 
/disk skip joy 

/-iAjT ro» SECOND DONE 
/RlAD STATUS 

/*AS IT ONLY DONE Fl*C 
/YES, RETURN 



/PP?NT n R£CAL18RATE £ E R 0 R DISCONNECT" 
/DISCONNECT DISK 
/^ORC DISK AVAILABLE 



IS2 



HHCRi 



/CXJ? 



RAH 2 

3125 
S ! ? -ft 
3l2? 



3133 
3134 
3135 
3136 
013? 
3142 
3141 
3142 
3143 
314 4 
314^ 
3146 
314? 
3i5S 
3151 
3152 
312=5 
3134 
St*)? 
3X56 
31?? 
3i6g 
3161 
3162 
3lfe3 
3164 

3165 
3166 
316? 
3170 
3171 
3172 
3173 
3174 
5175 
31 7ft 
3177 
32?3 

32? 3 

32?4 
3223 



57 2 2 
7 < ; ?s 2 
S327 



3 1 .5 i 3 3 7 

3i32 aeaa 



4451 

3230 

mi 

734S 

tm 
m 

11 

1135 

7340 
4 4 SI 

1136 
4«S2 
7340 

tm 

1%S? 
4452 
3733 

2205 
?301 
1411 
H222 
3124 
3342- 
3322 
221? 

znx 

2333 
1716 

?324 
4i3S 

2303 
?2S2 



ife«juL-?3 

SNTERl* hlT 
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TIMER 2 
TIKE 



* I M E R 1 # $ 

T I M £ R 2 1 fi 

/ 

/ROUT I Ng' TO ?YP£ OUT 0*T* I 
/ 

T Y P ft A T * 2 

PRNtE.R 

TAD A$R£S 
OCTEL 

CLA CLL CHA 

PRNTL'rE 

TEXH* 

CCTEL 

;^rfL- !: "" 

TAG I; DREG 

OCTEL 

CLA CLu CHA 
PRATER 
TEXOC 
?AQ 

CLA CLL CHA 

trxos 



- i I 
p I 



/NO INTERRUPT OCCURRED. I GuESS| 



/PRINT '"AS r « 



^RR'IWT w NAi« 



/PRINT «AOt* 



/ P R i N T "DSt"* 



^rsi« ? rrx? 



VPOiT 

PEC*LI6RAtr r-RC* D ! tCONNffiT I * 



/ 

TEXPC*. 



"PC J" 



VI42 



32C6 
32 3? 
3210 
3211 
3212 
3213 
3214 
3 215 
3216 
321? 
322? 
3221 
3222 
3223 
3224 ' 
3225 
3226 
322? 
3233 
3231 
3 23 2 
3233 
3234 
3235 
3236 
323? 
324® 
32#1 



3243 
3244 
3245 
3246 
32^? 
3252 
3251 
3252 
3253 
3254 
3255 
3256 
325? 
326? 
3251 
32A2 
3263 
3264 
3265 
3266 
326? 
32 70 
3271 
3272 
3273 



7A2A 
7233 
n 3 i b 
7202 
1515 
7203 

1101 

7 200 
iMSl 
7233 
2323 
?20i? 
?30i 
72^0 
2703 
720? 
0627 
723? 
JU23 
7230 
2731 
7 200 
2 IB* 
7233 
IMP? 
7233 

7 200 

2 2 25 

4^23 
2431 
2425 
2330 
2722 
1124 
3540 
2324 

sis; 

0000 
2335 
■ S513 
4K23 
2 4 01 
24 25 
2302 
2205 
?501 
1411 
0222 

2324 



16»JUL-73 

TEXST, TEXT 

TEXCMf TEXT 

TETXKM, TEXT 

TEX? A, TEXT 

TEXDA, TEXT 

TEXSS, TEXT 

TEXCA, TEXT 

TEXWC, TEXT 

TEXFW, TEXT 

TEXAS, TEXT 

T E X W A j- TEXT 

TEXAD, TEXT 

TEXDCi TEXT 

TEXDB, TEXT 



ER?X3 { TEXT 



17|42 

"DAi " 
"SSS" 
"CA{" 

•rwi* 

W AS I « 
«WA|" 
"AOl" 

"OBI" 



PACE 1.54 



ERTX1, TEXT "READ STATUS* 



ERTX2, TEXT "WRITE STATUS" 



"SEEK STATUS" 



"RECALIBRATE STATUS 1 * 



3274 
32?S 
3276 
527? 
33P0 
3301 
33r2 
3523 

3304 
33^5 
33T6 
3307 
331?! 
3311 
3312 
3313 
3314 
331S 
3315 
331? 
S320 
3321 
3322 
3323 
3324 
3325 
3326 
332? 
3330 
3331 

333 2 
3333 
3334 
3335 
33 3 6 
333? 
33*3 
3341 
3342 
334J 

334 4 
3345 
3346 

335a 

3351 
3352 
3353 

335 4 
3355 
33S& 
3357 
336? 
3361 



0124 
2523 

Nil 
2 313 
4384 
3124 
S*100 

4 335 
2222 
1722 
Z00S5 
2213 

?a?5 

0124 
0140 
2205 
1411 
0102 
1114 
1124 
310? 
£*S30 
0522 
55311 
2305 

4004 
1123 
1333 
161? 
1655 
2205 
03l? 
26S5 
2201 
3214 
?:5*3 

2115 
1725 
1624 
421? 
8640 
0530 
2403 

16 04 

4022 
5? 2? 
4?15 
?515 

17 2k 
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ERTX5 f TEXT "DISK DATA"* 



HESS, TEX? * ERROR* 



HESl, TEXT "RK8E DATA REL I AS ? L i TV 



M£S2« TEXT W EX£RC I SE* 



KES3, TEXT * DJSK" 

KES4, TEXT «NCN ! »REC0VERA8LE 



M£S3* T E * T AMOUNT OT E:<?ErvCEO R / * * E*CR Y ( S«7 5 



P A {. 1 f V142 



3362 
336 3 
•5364 

336 6 
336? 
3S7S 
3371 
3 372 
3373 
3374 
3375 
3376 
3377 
34D0 
34£i 
34?2 
3423 
34?« 
3425 
3 4 r 6 
342? 
3413 
3411 
3412 
3413 
3414 
34i5 
S4i6 

3421? 
3 4 21 
3 4 22 
3423 
3 424 
3425 
3426 
5427 
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